unit System;

interface

type
 LongWord=Cardinal;

 dword  = cardinal;
 pdword = ^dword;
 bool   = LongBool;
 pbyte  = ^byte;
 pword  = ^word;

type
 TGUID = record
   D1: LongWord;
   D2: Word;
   D3: Word;
   D4: array[0..7] of Byte;
 end;


procedure _Halt0;

var
   ExitCode: Integer;
  _HandleFinally : Byte;
implementation

procedure _Halt0; assembler;
asm

end;


end.
